<script>on mouseUpgo stack "a stack" in new windowif the result = "Cancel" then exit mouseupreset menubarset userlevel to 2end mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>275</top>
<right>477</right>
<bottom>304</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>527</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>?</name>
<script>on mouseUpshow cd field "how"wait 120 tickshide cd field "how"end mouseUpon mousestilldownshow cd field "how"end mousestilldown</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>366</left>
<top>239</top>
<right>491</right>
<bottom>273</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>how</name>
<script></script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>454</left>
<top>285</top>
<right>470</right>
<bottom>301</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseupsend mouseup to cd button "?"end mouseupon mousestilldownsend mousestilldown to cd button "?"end mousestilldown</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>430</left>
<top>101</top>
<right>453</right>
<bottom>116</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>23</left>
<top>24</top>
<right>102</right>
<bottom>40</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About...</name>
<script>on mouseUpshow cd field "about"select line 1 of cd field "about"wait until the mouseclickhide cd field "about"end mouseUp</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>94</left>
<top>24</top>
<right>433</right>
<bottom>234</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>about</name>
<script></script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>409</left>
<top>24</top>
<right>488</right>
<bottom>40</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Shut Down</name>
<script>on mouseUpanswer "Are you sure you want to shut down?" with "Yes" or "No"if it = "No" then exit mouseUpshutdown -- an XCMDend mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>23</left>
<top>280</top>
<right>102</right>
<bottom>296</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Quit</name>
<script>on mouseUpPut cd field paswrd into whatitisask PASSWORD "Password?"if the result = "Cancel" then leaveif it <> whatitis then exit mouseupanswer "Change Password or Quit? " with "Cancel" or "Change" or "Quit"if it = "Cancel" then leaveif it is "Quit" then domenu "Quit HyperCard"else checkit whatitisend mouseUpon checkit whatitisask password "New Password?"if the result = "Cancel" then leaveput it into newpaswrdask password "Verify New Password:"if the result = "Cancel" then leaveput it into newpaswrd2if newpaswrd = newpaswrd2 thenput newpaswrd into cd field "paswrd"exit checkitend ifanswer "Passwords Don't Match." with "Cancel" or "Try Again"if it = "Cancel" then leaveelse checkit whatitisend checkiton leaveanswer "Operation Cancelled." with "OK"exit to hypercardend leave</script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text>Macintosh Application Launcher</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>476580360</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text>Press ‚åò-Shift-1to eject a disk.</text>
</content>
<content>
<layer>card</layer>
<id>20</id>
<text>?</text>
</content>
<content>
<layer>card</layer>
<id>21</id>
<text>1.3</text>
</content>
<content>
<layer>card</layer>
<id>23</id>
<text><span class="style2">acintosh Application Launcher </span><span class="style3"> by Jim Nauta</span><span class="style1">Requirements: Hard drive, HyperCard 2.0 or later, System 6.0.7 or 6.0.8 in finder mode (not multifinder).This stack is shareware. If you find it effective as part of a minimal security system, please send $5.00 for an individual copy, or $100.00 for a site license for one building, or $250 for an unlimited district-wide site license to: Jim Nauta 535 Milton Drive Naperville, IL 60563 (click anywhere to hide this screen)</span></text>
</content>
<name></name>
<script>on opencardif the version ‚â• 2.1 then lockoutset userlevel to 1hide menubarhide titlebarhide msgrepeat with x = 2 to 4disable menu xend repeatend opencardon idleopencardend idleon keydown whichend keydownon domenu whatif what = "Open..." or what = "Find File" or what = "Chooser" or what = "Quit HyperCard" or what = "Protect Stack..." then pass domenuend domenuon commandkeydown whatkeyput "sorry..."wait 1 secondsput ""hide msgend commandkeydownon lockoutif the systemversion ‚â• 7.0 then close "finder"end lockout</script>